home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / clippcx.arc / TESTPCX.PRG < prev   
Encoding:
Text File  |  1990-05-29  |  3.2 KB  |  102 lines
  1. *──────────────────────────────────────────────────────────────────────────────
  2. *
  3. *  ╔╦════╦╗ ╔╗    ╔╗ ╔╦═╦╦═╦╗ ╔╦════╦╗   ╔╦════╦╗ ╔╗    ╔╗ ╔╦════╦╗ ╔╦════╦╗
  4. *  ║║    ║║ ║║    ║║ ╚╝ ║║ ╚╝ ║║    ║║   ║║    ╚╝ ╚╩╗  ╔╩╝ ║║    ╚╝ ║║    ╚╝
  5. *  ║╠════╣║ ║║    ║║    ║║    ║║    ║║   ║╠═══╣    ╔╩══╩╗  ║╠═══╣   ║║
  6. *  ║║    ║║ ║║    ║║    ║║    ║║    ║║   ║║    ╔╗ ╔╣    ╠╗ ║║    ╔╗ ║║    ╔╗
  7. *  ╚╝    ╚╝ ╚╩════╩╝    ╚╝    ╚╩════╩╝   ╚╩════╩╝ ╚╝    ╚╝ ╚╩════╩╝ ╚╩════╩╝
  8. *──────────────────────────────────────────────────────────────────────────────
  9. *   Auto Exec BBS       (508) 833-0508 ->  300-19,200 HST  (6 Nodes)
  10. * 1.5 Gigabytes On-Line   (508)833-0512 -> MicroCom QX/V.32c, 300-38,400 V.32
  11. *«««««««««««»»»»»»»»»»    Only Reg Reqd to D/L up to 450,000 bytes per day
  12. *──────────────────────────────────────────────────────────────────────────────
  13. *   SysOps: Milton Shaw & Gene Lafond      Home of AECLIP Clipper Libraries
  14. *──────────────────────────────────────────────────────────────────────────────
  15. *Specializing in Clipper/dBASE/FoxBase, 'C', Pascal, Games, Novell, MAC & Adult
  16. *──────────────────────────────────────────────────────────────────────────────
  17. *
  18. * Program Title: TESTPCX.PRG
  19. * Purpose: DEMONSTRATE DISPLAY OF .PCX FROM CLIPPER USING SHOWPCX() FUNCTION
  20. *
  21. * Date: 05/26/90
  22. * Author: Milton F. Shaw Jr.
  23. *
  24. * Please leave comments concerning program on Auto Exec BBS to SysOp.
  25. *
  26. * To Complile: CLIPPER TESTPCX
  27. *
  28. * Linking Instructions:
  29. *
  30. * Plink86 FI TESTPCX LIB CLIPPER,EXTEND,AEPCX
  31. * LINK /NOE /SE:250 TESTPCX,,,CLIPPER+EXTEND+AEPCX
  32. * TLINK TESTPCX,,,CLIPPER+EXTEND+AEPCX
  33. *
  34. ***************************** Header Display **************************
  35.  
  36. set color to w+/b
  37. clear
  38. SET COLOR TO +W/G
  39. @ 00,00,04,27 BOX "┌─┐│┘─└│ "
  40. @ 02,05 SAY "PcBoard V14.2/E6"
  41. @ 03,03 SAY "300-38400 Baud, 8-N-1"
  42. SET COLOR TO +W/R
  43. @ 00,28,04,49 BOX "┌─┐│┘─└│ "
  44. @ 02,30 SAY "Auto Exec Inc. BBS"
  45. @ 03,32 SAY "1.5 GIGABYTES"
  46. SET COLOR TO +W/G
  47. @ 00,50,04,79 BOX "┌─┐│┘─└│ "
  48. @ 02,52 SAY "(508) 833-0508/ HST -19.2K"
  49. @ 03,52 SAY "(508) 833-0512/ V.32-38.4K"
  50. SET COLOR TO +W/R
  51. @ 22,00,24,79 BOX "╔═╗║╝═╚║ "
  52. @ 23,02 SAY "Home of AECLIP Software - AECLIPT (GRAPHIC LIB), AECLIPM (MATH LIB) & more"
  53. save screen to testscreen
  54. set color to gr+/b
  55. pcxname=space(30)
  56. yn="Y"
  57. do while yn="Y"
  58. @7,10 say "Enter PCX: " get pcxname picture "@!"
  59. read
  60. if ".PCX" $ pcxname
  61. pcxname=upper(trim(pcxname))
  62. else
  63. pcxname=upper(trim(pcxname))+".PCX"
  64. endif
  65. **************************** CALL TO SHOWPCX() ************************
  66.  
  67. showpcx(pcxname)
  68.  
  69.  
  70. restore screen from testscreen
  71. @12,27 say "Do Another PCX? " get yn picture "!"
  72. pcxname=pcxname+space(30-len(pcxname))
  73. read
  74. @12,27 say space(20)
  75. enddo
  76.  
  77. ***************************  GOODBYE MESSAGE **************************
  78.  
  79. set color to w+/rb
  80. @12,19 clear to 18,62
  81. @12,19 to 18,62
  82. @13,33 say "Auto Exec BBS"
  83. @14,20 say "Call Today - Over 1200 Clipper/Dbase Files"
  84. set color to gr+*/br
  85. @14,20 say "Call Today"
  86. @14,38 say "1200"
  87. set color to w+/rb
  88. @15,20 say "Get your copy of the AECLIP Software now."
  89. @16,20 say "AECLIPT - (68 Graphic Functions) - Great "
  90. @17,20 say "AECLIPM - (48 Math Functions) - Powerful "
  91. @24,1 say ""
  92.  
  93. return
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.